%
If Request.QueryString("pagina") = "" Then
PaginaCorrente = 1
Else
PaginaCorrente = CInt(Request.QueryString("pagina"))
End If
If Request.QueryString("gpagina") = "" Then
GrandPagina = 6
Else
GrandPagina = CInt(Request.QueryString("gpagina"))
End If
%>
Classifica Foto Album Fotografico <%=date%>_<%=time%> - Associazione Pro Loco Dama in Casentino: panorama, scorci del paese, immagini, natura, feste estive, eventi, bosco, naturali, chiusi della verna, montagna, centro storico, paesino, manifestazioni, associazioni, casentino, natura, vacanze, relax, dama, pro loco, toscana, italia, chiusi, verna, arezzo, vota
<%
strSQL = "SELECT * FROM Immagini, Utenti, Categorie WHERE ([Immagini].[Visibile] = true) AND ([Utenti].[ID_Utente]=[Immagini].[Utente_Upload]) AND ([Immagini].[Categoria]=[Categorie].[ID_Categoria]) ORDER BY [Immagini].[Media] desc, [Immagini].[NVoti] desc, [Immagini].[Data] desc"
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/immagini.mdb")
'On Error
Set RSimmagini = Server.CreateObject("ADODB.Recordset")
RSimmagini.PageSize = GrandPagina
RSimmagini.CacheSize = GrandPagina
RSimmagini.Open strSQL, objPagingConn, 3, 1, &H0001
reccount = RSimmagini.recordcount
TotPagine = RSimmagini.PageCount
If PaginaCorrente > TotPagine Then PaginaCorrente = TotPagine
If PaginaCorrente < 1 Then PaginaCorrente = 1
if RSimmagini.EOF then%>
Ci spiace, data-base in costruzione, non abbiamo ancora inserito questo articolo.
Riprovi fra qualche giorno.<%
Else
if TotPagine=0 then
Response.Write "